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** te 
:# COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
*® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
;# ALL RIGHTS RESERVED. " 

® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
7 N ACCORDANCE WITH THE TERMS OF SUCH LICEN SE AND WITH THE * 
ft ION OF THE ABOVE COPYRIGHT N NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* C0 THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:t OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. > 
*® ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
*® CORPORATION. * 
*® tk 
*® ® 
** * 
*® ® 
**® * 
*® * 
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b FACILITY: MATH LIBRARY 
; : "ABSTRACT: 


; ; VERSION: 1 
; ; HISTORY: 


: ; AUTHOR: 
Jonathan M. Taylor, 28-Jul-77: Version 0 


; ; MODIFIED BY: 
Steven B. Lionel, 19-Feb-1979: Version 2 
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-SBTTL DECLARATIONS 


; INCLUDE FILES: 


EXTERNAL SYMBOLS: 


MACROS: 


; PSECT DECLARATIONS: 
-PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


EQUATED SYMBOLS: 


OWN STORAGE: 


O09 098 NINN NNO PAA AOAOAO 
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-SBTTL MTHSININT = return nearest integer as INTEGER*2 


p+4 
; FUNCTIONAL DESCRIPTION: 


NOUS WR—OOOnNO 


0 91 ; MTHSININT returns as its function value the nearest INTEGER*2 
° 4 3 integer to its REAL*4 argument, rounded away from zero. 
o 94 ; CALLING SEQUENCE: 
44 4 3 nearest_integer.ww.v = MTHSININT (arg.rf.r) 
‘ 
0 wr § 
38 38 > INPUT PARAMETERS: : : | 
; - *4 argumen 
0000 100; he . 
000 101 ; IMPLICIT INPUTS: 
000 198 ; NONE 
00 103; | 
00 104 : OUTPUT PARAMETERS: | 
0000 105 ; NONE 
0000 106 ; 
0000 107 ; IMPLICIT OUTPUTS: 
0000 108 ; NONE 
0000 109 ; 
0000 110 ; FUNCTION VALUE: 
0000 111; nearest_integer - trunc(arg + .5*sign(arg)) | 
0000 16 ; 
0000 1135 ; SIDE EFFECTS: | 
0000 114; Reserved operand, integer overflow exceptions possible. 
0000 115; 
0000 116 ic 
0000 11 | 
0000 118 
4000 9000 119 .ENTRY MTHSININT “M<IV> | 
50 04 B8C 48 000 120 CVTRFL a@4(AP), RO : RO gets rounded argument 
50 50 F7 0006 121 CVTLW RO, RO 3; convert to INTEGER*®2 
04 0009 1 ; RET 
QO0A 1 
OOOA 124 
000A 125 - END 
| 
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MTHSININT 00000000 RG 01 

gmeee nee ew cow sce at¢ 

: Psect synopsis ! 

mamocece eae e es aan wet 
PSECT name Allocation PSECT No. Attributes 
- ABS. 0000000 ( -) 00 ¢ QO.) NOPIC USR CON ABS LCL 
_MTHSCODE itd ( 19:3 gf ( 9.) PIC USR CON REL LCL 

pomenanwmmeoewr ane en aon eon eay 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.08 00:00:01.2 
Command processing 114 00: Boa -38 00:00:03. 
Pass 63 00:00:00.3 abs TS 6 
Symbol table sort 0 00:00:00. 4 0:00:00.00 
Pass 2 37 88:60:00" Ho BIB 
Symbol table output 1 00:00:00.01 0:00:00.01 
Psect synopsis output 00:00:00.02 0:00:00.02 
Cross-reference output 00:00:00.00 BF +89 88 «80 
Assembler run totals 24 00:00:01.24 0:00:08.29 


The working 
1191 bytes ( 
There were 1 


et Limit was 750 pages. 

pages) of virtual memory were used to buffer the intermediate code. 

pages of symbol table space allocated to hold 1 non-local and 0 local symbols. 
125 source Lines were read in Pass 1, prodyc ing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


H Macro library statistics ; 


Macro Library name 


Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
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